home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 18 / 018.d81 / f.b maker.1 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  105 lines
  1. 10 ifz>0then1830
  2. 100 rem    make starline    intro
  3. 120 poke53281,1:poke53280,6:poke646,0
  4. 140 print"[147]"
  5. 160 t$="**** [198][197][197][196][194][193][195][203] [196][201][211][203][160][205][193][203][197][210] ****":gosub1880
  6. 180 print:print
  7. 200 t$="[204][207][193][196][211][212][193][210] is a grand [193]merican":gosub1880
  8. 220 t$="experiment, but [204][207][193][196][211][212][193][210] can be":gosub1880
  9. 240 t$="no more or no less than you":gosub1880
  10. 260 t$="make it!":gosub1880
  11. 280 t$="[195]ommodore-64 (and 128) owners":gosub1880
  12. 300 t$="everywhere are bound together by":gosub1880
  13. 320 t$="the ownership of a wonderful piece":gosub1880
  14. 340 t$="of hardware!":gosub1880
  15. 360 gosub1940
  16. 380 print"[147]":t$="**** [198][197][197][196][194][193][195][203] [196][201][211][203][160][205][193][203][197][210] ****":gosub1880
  17. 400 t$="[204][207][193][196][211][212][193][210] provides you with a mechanism":gosub1880
  18. 420 t$="that links you to the rest of the":gosub1880
  19. 421 t$="[195]ommodore [195]osmos.":gosub1880
  20. 422 t$="[196]on't keep your [195]ommodore":gosub1880
  21. 440 t$="treasures a secret from your fellow":gosub1880
  22. 460 t$="space travelers.  [207]thers who are":gosub1880
  23. 480 t$="just beginning their journey will":gosub1880
  24. 500 t$="place great value on your wisdom":gosub1880
  25. 502 t$="and knowledge!":gosub1880
  26. 504 t$="[200]ere is how you share...":gosub1880:gosub1940
  27. 520 print"[147]"
  28. 540 t$="**** [198][197][197][196][194][193][195][203] [196][201][211][203][160][205][193][203][197][210] ****":gosub1880
  29. 560 print:print
  30. 580 t$="[213]se this facility to convert a blank":gosub1880
  31. 600 t$="disk into a [204][207][193][196][211][212][193][210] feedback disk.":gosub1880
  32. 620 t$="[212]hen send your comments, reviews,":gosub1880
  33. 640 t$="tips, questions, and most of":gosub1880
  34. 642 t$="all ... programs ... to [204][207][193][196][211][212][193][210]":gosub1880
  35. 660 t$="on your disk, ready for publication.":gosub1880
  36. 680 t$="[217]our disk will be returned to you and":gosub1880
  37. 700 t$="remember, we pay a $50 reward for":gosub1880
  38. 702 t$="programs that we use on [204][207][193][196][211][212][193][210]!":gosub1880
  39. 720 gosub1940
  40. 740 print"[147]"
  41. 760 t$="**** [198][197][197][196][194][193][195][203] [196][201][211][203][160][205][193][203][197][210] ****":gosub1880
  42. 800 t$="[204][207][193][196][211][212][193][210] has provided a 'peel-off'":gosub1880
  43. 820 t$="mailing label that pays for return":gosub1880
  44. 840 t$="postage.  [202]ust stick the label on our":gosub1880
  45. 860 t$="cardboard mailer, put your feedback":gosub1880
  46. 880 t$="disk in the mailer, and pop it in":gosub1880
  47. 900 t$="the mail.  [201]t will come right to us.":gosub1880
  48. 920 t$="[206]o stamps required!":gosub1880
  49. 930 t$="[194]e sure to include your return":gosub1880
  50. 940 t$="address so we can send your disk":gosub1880
  51. 950 t$="back to you.":gosub1880
  52. 980 gosub1940
  53. 1360 :
  54. 1380 :
  55. 1400 :
  56. 1420 :
  57. 1440 :
  58. 1460 :
  59. 1480 rem  want to make one?
  60. 1500 print"[147]"
  61. 1520 t$="**** [198][197][197][196][194][193][195][203] [196][201][211][203][160][205][193][203][197][210] ****":gosub1880
  62. 1540 print""
  63. 1560 print"  1.  [205]ake a [198][197][197][196][194][193][195][203] disk."
  64. 1561 print"      (from a blank disk)":print
  65. 1562 print"  2.  [210]eturn to [204][207][193][196][211][212][193][210]"
  66. 1563 print"      ([201]'ll experiment with this later)"
  67. 1564 print"[206]ote:  [212]his may not work well with"
  68. 1565 print"       [198][193][211][212][204][207][193][196] installed ([211]orry!)."
  69. 1570 print"[215]hich?"
  70. 1580 poke198,0:wait198,1:getk$
  71. 1600 ifk$<>"1"andk$<>"2"thenprint"[145][145][145][145]":     goto1570
  72. 1620 ifk$="2"then2040
  73. 1640 print"[147]"
  74. 1660 t$="**** [204][207][193][196][211][212][193][210] [196][201][211][203][160][205][193][203][197][210] ****":gosub1880
  75. 1680 print:print"[147]"
  76. 1700 print"  [207].[203]. [201] will tell you when to remove":print
  77. 1720 print"   your [204][207][193][196][211][212][193][210] disk and insert a":print
  78. 1722 printspc(13)"blank disk."
  79. 1800 print"             [208]lease wait....."
  80. 1820 print"            [204]oading some files....     "
  81. 1822 print" [193]pproximate loading time is 40 seconds."
  82. 1824 open15,8,15,"r0:linestar ml.o=linestar ml.o":input#15,er,er$:close15
  83. 1826 ifer<19orer=63then1830
  84. 1827 goto60000
  85. 1830 ifz=0thenz=1:                           load"linestar ml.o",8,1
  86. 1840 print"load"chr$(34)"f.b maker.2"chr$(34)",8":print"run"
  87. 1860 poke631,13:poke632,13:poke198,2:end
  88. 1880 rem   centering
  89. 1900 x=20-len(t$)/2:printtab(x)t$:print
  90. 1920 return
  91. 1940 rem    wait for keypress
  92. 1960 poke783,peek(783)and254
  93. 1980 poke781,23:poke782,13:sys65520:print"<press a key>"
  94. 2000 poke198,0:wait198,1:getk$
  95. 2020 return
  96. 2040 rem   connnect back to hello
  97. 2060 print"[147]load"chr$(34)"hello"chr$(34)",8":print"run"
  98. 2080 poke631,13:poke632,13:poke198,2:end
  99. 60000 rem   error!!
  100. 60010 print"[147]    [215]e have encountered an error..."
  101. 60020 print" [208]lease make sure that [204][207][193][196][211][212][193][210] [211]ide 2"
  102. 60030 print"          is in your drive."
  103. 60040 print"  [208]ress any key when you are ready.."
  104. 60050 poke198,0:wait198,1:poke198,0:          goto1500
  105.